home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / systems / vm-cms / texshell / texhelp.xedit < prev    next >
Text File  |  1993-09-27  |  3KB  |  102 lines
  1. /********************************************************************/
  2. /* Package  : TeXShell for CMS, version 2.0                         */
  3. /* Author   : Humberto Jose' Bortolossi                             */
  4. /*                                                                  */
  5. /* Bitnet   : hjbortol at brlncc.bitnet, hjbortol at brfuem.bitnet  */
  6. /* Internet : hjbortol at gauss.impa.br                             */
  7. /*                                                                  */
  8. /* Organizations : Instituto de Matematica Pura e Aplicada (IMPA)   */
  9. /*                 Fundacao Universidade Estadual de Maringa'       */
  10. /*                                                                  */
  11. /* Copyright : This program is freely distributable.                */
  12. /*             You can do changes but, please, keep my name.        */
  13. /*                                                                  */
  14. /* Description : Case sensitive help.                               */
  15. /*                                                                  */
  16. /*                                               (C) Copyright 1992 */
  17. /********************************************************************/
  18. PARSE ARG FM .
  19. ERROR_MESSAGE = 'String not found.'
  20. /* trace all */
  21. 'SAVE'
  22. 'CP TERMINAL APL ON'
  23. 'EXTRACT %CURSOR%EFNAME%EFTYPE%EFMODE'
  24.  
  25.   'LISTF LATEX HELP * (STACK'
  26.    IF RC /= 0 THEN DO
  27.        say 'File LATEX HELP not found.'
  28.        exit 0
  29.    END
  30.  
  31.    pull . . helpfm .
  32.    dropbuf
  33.  
  34.  
  35.    IF CURSOR.3 <= 0 THEN DO
  36.         'COMMAND HELP CMS TEXSHELL'
  37.  /*     'CP TERMINAL APL OFF'
  38.          PUSH 'SET APL ON'
  39.          PUSH 'CURSOR FILE' CURSOR.1 CURSOR.2  */
  40.          EXIT 0
  41.    END
  42.  
  43. 'EXECIO 1 DISKR' EFNAME.1 EFTYPE.1 EFMODE.1 CURSOR.3
  44.  PARSE PULL CL
  45.  TEST_C = SUBSTR(CL,CURSOR.4,1)
  46.    IF TEST_C = ' ' THEN DO
  47.         'COMMAND HELP CMS TEXSHELL'
  48. /*      'CP TERMINAL APL OFF'
  49.          PUSH 'SET APL ON'
  50.          PUSH 'CURSOR FILE' CURSOR.1 CURSOR.2  */
  51.          EXIT 0
  52.    END
  53.  CLOUT = SUBWORD(CL,WORDS(DELSTR(CL,CURSOR.4 + 1)),1)
  54.  
  55.  DROPBUF
  56.  
  57.  CLOUT = '==>  'CLOUT
  58.  
  59. 'EXECIO * DISKR LATEX HELP' helpfm '1 (FINIS LOCATE /'CLOUT'/ FIFO'
  60.  
  61.  IF RC /= 0 THEN DO
  62.       'SET EMSG OFF'; 'ERASE TEXHELP FILE' FM; 'SET EMSG ON'
  63.       'EXECIO 1 DISKW TEXHELP FILE' FM '(FINIS ST 'ERROR_MESSAGE
  64. /*     PUSH 'SET PRE OFF'
  65.       'COMMAND XEDIT TEXHELP FILE'
  66.        PUSH 'SET APL ON'
  67.        PUSH 'CURSOR FILE' CURSOR.1 CURSOR.2 */
  68.       'EXEC BACK' CURSOR.1 CURSOR.2
  69.        EXIT 0
  70. END
  71.  PARSE PULL KEY
  72.  
  73.  PARSE PULL LINE  .
  74.  
  75.  
  76. 'EXECIO * DISKR LATEX HELP ' helpfm LINE
  77.  
  78.  PARSE PULL JUNK
  79.  
  80. 'SET EMSG OFF'; 'ERASE TEXHELP FILE' FM; 'SET EMSG ON'
  81.  
  82. 'EXECIO 1 DISKW TEXHELP FILE' FM '(FINIS ST' KEY
  83.  
  84.  OUT = ' '
  85.  
  86. DO WHILE SUBWORD(OUT,1,1)  /= '==>'
  87.      'EXECIO 1 DISKW TEXHELP FILE' FM '(FINIS ST' OUT
  88.       PARSE PULL OUT
  89. END
  90.  
  91. DROPBUF
  92.  
  93. /*
  94. PUSH 'SET PRE OFF'
  95. 'COMMAND XEDIT TEXHELP FILE'
  96. PUSH 'SET APL ON'
  97. PUSH 'CURSOR FILE' CURSOR.1 CURSOR.2
  98. */
  99. 'EXEC BACK' CURSOR.1 CURSOR.2
  100. EXIT 0
  101.  
  102.